﻿Public Class MachPhuc
    Inherits MachDien
    Protected _dsMachDien As List(Of MachDien)

    Public Sub New(ByVal ParamArray dsR As Double())
        _dsMachDien = New List(Of MachDien)()
        For Each r As Double In dsR
            Dim md As MachDon
            md = New MachDon(r)
            _dsMachDien.Add(md)
        Next
    End Sub

    Public Sub New(ByVal ParamArray dsmd As MachDien())
        _dsMachDien = New List(Of MachDien)()
        For Each md As MachDien In dsmd
            _dsMachDien.Add(md)
        Next
    End Sub

    Public Overrides Sub Nhap()
        'cai dat sau
    End Sub

    Public Overrides Sub Xuat()
        'cai dat sau
    End Sub

    Public Overrides Function TongTro() As Double
        Dim kq As Double
        kq = 0
        'cai dat sau
        Return kq
    End Function
End Class
